home *** CD-ROM | disk | FTP | other *** search
/ Shareware Extravaganza - Disc 4 / Shareware Extravaganza - Over 25,000 Programs (The Ultimate Shareware Company)(Disc 4 of 4)(1993).iso / cad / quikcmd2.zip / FASTCMD.LSP < prev    next >
Text File  |  1990-10-23  |  11KB  |  253 lines
  1. ;  FASTCMD.LSP
  2. ;
  3. ;                         QUICK COMMAND version 2.0
  4. ;                   FASTCMD.LSP is a module of QUICK COMMAND
  5. ;                        Copyright 1989, 1990 Dan Jincks
  6. ;
  7. ;
  8. ;              This is SHAREWARE, it is NOT Public Domain software.
  9. ;
  10. ;              This code or any part of this code may not be reproduced
  11. ;              in any publication without prior written permission.
  12. ;
  13. ;              Printed copy of this code or any part of this code may not
  14. ;              be distributed without prior written permission.
  15. ;
  16. ;              Printed copy may only be made for reference purposes by
  17. ;              the end user.
  18. ;
  19. ;
  20. ;                               Dan Jincks
  21. ;                             Box 155A HCR 77
  22. ;                           Annapolis, MO 63620
  23. ;
  24. ;
  25. ;
  26. ;   You are granted a limited license to use FASTCMD.LSP for a 30 day trial
  27. ;   period.  If you wish to continue using any or all of QUICK COMMAND after
  28. ;   the trial period, you must become a registered user.  As a registered
  29. ;   user, you may use QUICK COMMAND on 1 workstation or terminal.
  30. ;   Additional registrations must be bought for each additional workstation or
  31. ;   terminal.  To become a registered user, fill out the order form that can
  32. ;   be printed out from ORDERQC.DOC .
  33. ;
  34. ;
  35. ;   You may send copies of QUICK COMMAND to friends and associates if you abide
  36. ;   by the following rules:
  37. ;
  38. ;   1. It may only be distributed in the original unmodified form.
  39. ;   2. All original files must be included.
  40. ;   3. No addition files may be added.
  41. ;   4. If other files will be on the same disk, QUICK COMMAND files must be in
  42. ;      a library format such as ".ARC" called "QUICKCMD", or else be put alone
  43. ;      in a subdirectory called "QUICKCMD".
  44. ;   5. You may not sell QUICK COMMAND or any part of it.
  45. ;   6. You are not allowed to charge more then $5 to cover the cost of copying
  46. ;      and distribution.
  47. ;   7. You may not distribute any hard copy of the contents of QUICK COMMAND.
  48. ;
  49. ;
  50. ;   These AutoLISP commands and functions are designed to save you time, and
  51. ;   saving time means saving money.  The registration fee is very modest
  52. ;   compared to the savings, and much less expensive then typical third party
  53. ;   AutoCAD software. Be sure to registar if you continue to use them.
  54. ;
  55. ;
  56. ;                                                               DAN
  57. ;
  58. ;
  59. ;
  60. ;
  61. ;        AutoCAD and AutoLISP are registered trade marks of Autodesk Inc.
  62. ;
  63. ;        ***************************************************************
  64. ;
  65. ;  Begin FASTCMD.LSP
  66. ;
  67.  (setq SCMC 1)
  68. ;
  69. (defun C:TMC ()
  70.    (if (= SCMC nil)(setq SCMC 0))
  71.    (setq SCMC (abs (- SCMC 1)))
  72.    (if (= SCMC 0)
  73.       (prompt "Menu calling is OFF.")
  74.       (prompt "Menu calling is ON."))(princ)
  75. )
  76. ;
  77. (defun C:3DF()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=3DFACE")))
  78.    (command "3DFACE"))
  79. (defun C:3DM()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=3D")))
  80.    (command "3DMESH"))
  81. (defun C:3DP()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=3DPOLY")))
  82.    (command "3DPOLY"))
  83. (defun C:3DS()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=3D"))))
  84. (defun C:A()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=ARC")))
  85.    (command "ARC"))
  86. (defun C:AA()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=AREA")))
  87.    (command "AREA"))
  88. (defun C:AY()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=ARRAY")))
  89.    (command "ARRAY"))
  90. (defun C:B()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=BREAK")))
  91.    (command "BREAK"))
  92. (defun C:BL()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=BLOCK")))
  93.    (command "BLOCK"))
  94. (defun C:C()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=COPY")))
  95.    (command "COPY"))
  96. (defun C:CH()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=CHANGE")))
  97.    (command "CHANGE"))
  98. (defun C:CF()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=CHAMFER")))
  99.    (command "CHAMFER"))
  100. (defun C:COL()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=COLOR")))
  101.    (command "COLOR"))
  102. (defun C:CP()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=CHPROP")))
  103.    (command "CHPROP"))
  104. (defun C:CR()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=CIRCLE")))
  105.    (command "CIRCLE"))
  106. (defun C:D()(command "DIST"))
  107. (defun C:DT()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=DTEXT")))
  108.    (command "DTEXT"))
  109. (defun C:DD()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=DIVIDE")))
  110.    (command "DIVIDE"))
  111. (defun C:DL()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=DIMLINEAR")))
  112.    (command "DIM"))
  113. (defun C:DM()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=DIM")))
  114.    (command "DIM"))
  115. (defun C:DO()(command "DONUT"))
  116. (defun C:DV()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=DVIEW")))
  117.    (command "DVIEW"))
  118. (defun C:E()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=ERASE")))
  119.    (command "ERASE"))
  120. (defun C:EDG()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=3D")))
  121.    (command "EDGESURF"))
  122. (defun C:EE()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=ELLIPSE")))
  123.    (command "ELLIPSE"))
  124. (defun C:EV()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=ELEVTHK")))
  125.    (command "ELEV"))
  126. (defun C:F()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=FILLET")))
  127.    (command "FILLET"))
  128. (defun C:G()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=GRID")))
  129.    (command "GRID"))
  130. (defun C:H()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=HATCH")))
  131.    (command "HATCH"))
  132. (defun C:I()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=INSERT")))
  133.    (command "INSERT"))
  134. (defun C:IS()(command "ISOPLANE"))
  135. (defun C:L()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=LINE")))
  136.    (command "LINE"))
  137. (defun C:LA()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=LAYER")))
  138.    (command "LAYER"))
  139. (defun C:LI()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=LIST")))
  140.    (command "LIST"))
  141. (defun C:LM()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=LIMITS")))
  142.    (command "LIMITS"))
  143. (defun C:LT()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=LINETYPE")))
  144.    (command "LINETYPE"))
  145. (defun C:LTS()(command "LTSCALE"))
  146. (defun C:M()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=MOVE")))
  147.    (command "MOVE"))
  148. (defun C:ME()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=MEASURE")))
  149.    (command "MEASURE"))
  150. (defun C:MI()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=MINSERT")))
  151.    (command "MINSERT"))
  152. (defun C:MR()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=MIRROR")))
  153.    (command "MIRROR"))
  154. (defun C:MSL()(command "MSLIDE"))
  155. (defun C:O()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=OFFSET")))
  156.    (command "OFFSET"))
  157. (defun C:OS()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=OSNAPC")))
  158.    (command "OSNAP"))
  159. (defun C:P()(command "PAN"))
  160. (defun C:PE()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=P0")))
  161.    (command "PEDIT"))
  162. (defun C:PG()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=POLYGON")))
  163.    (command "POLYGON"))
  164. (defun C:PL()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=PLINE")))
  165.    (command "PLINE"))
  166. (defun C:PT()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=POINT")))
  167.    (command "POINT"))
  168. (defun C:QY()(command "QTEXT" "ON"))
  169. (defun C:QN()(command "QTEXT" "OFF"))
  170. (defun C:R()(command "REDRAW"))
  171. (defun C:RA()(command "REDRAWALL"))
  172. (defun C:REV()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=3D")))
  173.    (command "REVSURF"))
  174. (defun C:RG()(command "REGEN"))
  175. (defun C:RGA()(command "REGENALL"))
  176. (defun C:RN()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=RENAME")))
  177.    (command "RENAME"))
  178. (defun C:RT()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=ROTATE")))
  179.    (command "ROTATE"))
  180. (defun C:RUL()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=3D")))
  181.    (command "RULESURF"))
  182. (defun C:SV()(command "SAVE" ""))
  183. (defun C:S()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=SCALE")))
  184.    (command "SCALE"))
  185. (defun C:SCR()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=SCRIPT")))
  186.    (command "SCRIPT"))
  187. (defun C:SEL()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=SELECT")))
  188.    (command "SELECT"))
  189. (defun C:SK()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=SKETCH")))
  190.    (command "SKETCH"))
  191. (defun C:SN()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=SNAP")))
  192.    (command "SNAP"))
  193. (defun C:SO()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=SOLID")))
  194.    (command "SOLID"))
  195. (defun C:ST()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=STRETCH")))
  196.    (command "STRETCH" "C"))
  197. (defun C:SY()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=STYLE")))
  198.    (command "STYLE"))
  199. (defun C:T()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=TRIM")))
  200.    (command "TRIM"))
  201. (defun C:TAB()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=3D")))
  202.    (command "TABSURF"))
  203. (defun C:UC()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=UCS1")))
  204.    (command "UCS"))
  205. (defun C:UN()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=UNDO")))
  206.    (command "UNDO"))
  207. (defun C:VI()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=VIEW")))
  208.    (command "VIEW"))
  209. (defun C:VP()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=VPORTS")))
  210.    (command "VPORTS"))
  211. (defun C:VSL()(command "VSLIDE"))
  212. (defun C:WB()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=WBLOCK")))
  213.    (command "WBLOCK"))
  214. (defun C:X()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=EXTEND")))
  215.    (command "EXTEND"))
  216. (defun C:XP()(command "EXPLODE"))
  217. (defun C:Z()(if(= SCMC 1)(progn(menucmd "S=X")(menucmd "S=ZOOM")))
  218.    (command "ZOOM"))
  219. ;
  220. (defun C:CD() (command "CIRCLE" pause "dia"))
  221. (defun C:EC() (command "ERASE" "Crossing" ))
  222. (defun C:EL() (command "ERASE" "Last" ""))
  223. (defun C:EW() (command "ERASE" "Window" ))
  224. (defun C:F0() (command "FILLET" "R" "0" "FILLET"))
  225. (defun C:II() (command "INSERT" pause pause "" ""))
  226. (defun C:III() (command "INSERT" pause pause "" "" ""))
  227. (defun C:PC() (command "PLAN" ""))
  228. (defun C:PU() (command "PLAN" "U"))
  229. (defun C:PW() (command "PLAN" "W"))
  230. (defun C:U3() (command "UCS" "3"))
  231. (defun C:UE() (command "UCS" "E"))
  232. (defun C:UV() (command "UCS" "V"))
  233. (defun C:UX() (command "UCS" "X"))
  234. (defun C:UY() (command "UCS" "Y"))
  235. (defun C:UZ() (command "UCS" "Z"))
  236. (defun C:VD() (command "VIEW" "Delete"))
  237. (defun C:VE() (command "VIEW" "R" "E"))
  238. (defun C:VR() (command "VIEW" "Restore"))
  239. (defun C:VS() (command "VIEW" "Save"))
  240. (defun C:VV() (command "VIEW" "?"))
  241. (defun C:V1() (command "VIEW" "R" "1"))
  242. (defun C:V2() (command "VIEW" "R" "2"))
  243. (defun C:V3() (command "VIEW" "R" "3"))
  244. (defun C:V4() (command "VIEW" "R" "4"))
  245. (defun C:ZE() (command "ZOOM" "E"))
  246. (defun C:ZP() (command "ZOOM" "P"))
  247. (defun C:ZW() (command "ZOOM" "W"))
  248. ;
  249. (defun C:B1() (prompt " Break at a single point.")(terpri)
  250.               (command "BREAK" pause "F" pause "@0,0"))
  251. ;
  252. ;   End FASTCMD.LSP
  253.